home *** CD-ROM | disk | FTP | other *** search
- object dlgShowFilenames: TdlgShowFilenames
- Left = 694
- Top = 182
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Filename Display'
- ClientHeight = 462
- ClientWidth = 451
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- ShowHint = True
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 433
- Height = 330
- Shape = bsFrame
- end
- object Label10: TLabel
- Left = 41
- Top = 183
- Width = 40
- Height = 13
- Caption = 'Position:'
- end
- object Label1: TLabel
- Left = 20
- Top = 21
- Width = 231
- Height = 13
- Caption = 'What text do you want displayed on each frame?'
- end
- object Label2: TLabel
- Left = 40
- Top = 72
- Width = 376
- Height = 13
- Caption =
- 'Note: Text is not added to title frames, videos or images which ' +
- 'already have text'
- end
- object lblCustomCaption: TLabel
- Left = 40
- Top = 88
- Width = 390
- Height = 13
- Caption =
- 'You can specify the caption for each image on the bottom right o' +
- 'f the main window'
- Visible = False
- end
- object Label3: TLabel
- Left = 20
- Top = 109
- Width = 48
- Height = 13
- Caption = 'Options:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 20
- Top = 216
- Width = 33
- Height = 13
- Caption = 'Style:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label7: TLabel
- Left = 40
- Top = 242
- Width = 24
- Height = 13
- Caption = 'Font:'
- end
- object Label6: TLabel
- Left = 256
- Top = 243
- Width = 27
- Height = 13
- Caption = 'Color:'
- end
- object Label8: TLabel
- Left = 40
- Top = 275
- Width = 23
- Height = 13
- Caption = 'Size:'
- end
- object Label11: TLabel
- Left = 40
- Top = 306
- Width = 42
- Height = 13
- Caption = 'Shadow:'
- end
- object lblShadowColor: TLabel
- Left = 256
- Top = 306
- Width = 27
- Height = 13
- Caption = 'Color:'
- Enabled = False
- end
- object Label9: TLabel
- Left = 214
- Top = 275
- Width = 26
- Height = 13
- Caption = 'Style:'
- end
- object cmbCaptionPosition: TComboBox
- Left = 88
- Top = 179
- Width = 141
- Height = 21
- Hint = 'The position where the text should be placed'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 3
- OnChange = UpdatePreview
- Items.Strings = (
- 'Top Left'
- 'Top Center'
- 'Top Right'
- 'Bottom Left'
- 'Bottom Center'
- 'Bottom Right')
- end
- object btnOK: TsitBitBtn
- Left = 227
- Top = 419
- Width = 103
- Height = 28
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 13
- OnClick = btnOKClick
- Images = frmMain.ImageList1
- ImageIndex = 0
- end
- object btnCancel: TsitBitBtn
- Left = 337
- Top = 419
- Width = 103
- Height = 28
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 14
- OnClick = btnCancelClick
- Images = frmMain.ImageList1
- ImageIndex = 1
- end
- object chkCaptionHideExt: TCheckBox
- Left = 41
- Top = 130
- Width = 209
- Height = 17
- Hint =
- 'If checked the file will be displayed without its extension, e.g' +
- '. "myimage" rather than "myimage.jpg"'
- Caption = 'Hide Filename extension (e.g. ".jpg")'
- Enabled = False
- TabOrder = 1
- OnClick = UpdatePreview
- end
- object chkShowFileDateLong: TCheckBox
- Left = 41
- Top = 154
- Width = 193
- Height = 17
- Hint =
- 'Specifies whether the long date (e.g. September 13, 2004) or the' +
- ' short date (09/13/04)'
- Caption = 'Display Long Date Format'
- Enabled = False
- TabOrder = 2
- OnClick = UpdatePreview
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 346
- Width = 433
- Height = 65
- Caption = 'Sample'
- TabOrder = 12
- object pnlPreview: TPanel
- Left = 8
- Top = 16
- Width = 417
- Height = 41
- BevelOuter = bvNone
- TabOrder = 0
- end
- end
- object cmbFrameCaption: TComboBox
- Left = 41
- Top = 44
- Width = 233
- Height = 21
- Hint =
- 'The text that is displayed on each image frame within your slide' +
- 'show (except those that already have text added)'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = UpdatePreview
- Items.Strings = (
- 'None'
- 'Filename'
- 'File Date'
- 'Filename, File Date'
- 'Custom Text for each Image')
- end
- object cmbCaptionFontName: TExFontComboBox
- Left = 88
- Top = 238
- Width = 149
- Height = 22
- Hint = 'The font of the text'
- DropDownCount = 16
- TabOrder = 4
- OnChange = UpdatePreview
- TTonly = False
- UseItemFont = True
- end
- object cmbCaptionFontColor: TColorComboBox
- Left = 296
- Top = 238
- Width = 129
- Height = 22
- Hint = 'The color of the text'
- HTMLcolor = '#000000'
- ColorValue = clBlack
- TabOrder = 5
- OnChange = UpdatePreview
- end
- object spnCaptionFontSize: TSpinEdit
- Left = 88
- Top = 270
- Width = 65
- Height = 22
- Hint = 'The size of the text'
- MaxValue = 0
- MinValue = 0
- TabOrder = 6
- Value = 0
- OnChange = UpdatePreview
- end
- object cmbCaptionShadowStyle: TComboBox
- Left = 88
- Top = 302
- Width = 149
- Height = 21
- Hint = 'Whether a shadow or border should be added to the text'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 10
- OnChange = cmbCaptionShadowStyleChange
- Items.Strings = (
- 'None'
- 'Shadow'
- 'Border')
- end
- object cmbCaptionShadowColor: TColorComboBox
- Left = 296
- Top = 301
- Width = 129
- Height = 22
- Hint = 'The color of the shadow or border'
- HTMLcolor = '#000000'
- ColorValue = clBlack
- Enabled = False
- TabOrder = 11
- OnChange = UpdatePreview
- end
- object chkCaptionFontBold: TCheckBox
- Left = 250
- Top = 274
- Width = 49
- Height = 17
- Hint = 'Set text as bold'
- Caption = 'Bold'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = UpdatePreview
- end
- object chkCaptionFontUnderline: TCheckBox
- Left = 360
- Top = 274
- Width = 73
- Height = 17
- Hint = 'Set text as underlined'
- Caption = 'Underline'
- TabOrder = 9
- end
- object chkCaptionFontItalics: TCheckBox
- Left = 306
- Top = 274
- Width = 49
- Height = 17
- Hint = 'Set text as italicized'
- Caption = 'Italic'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- OnClick = UpdatePreview
- end
- end
-